home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1995 #5 & #6
/
Amiga Plus CD - 1995 - No. 5 and 6.iso
/
pd
/
serien
/
purity
/
nr.46
/
stinglibpcq
/
english
/
trial_str_c_pos.p
< prev
next >
Wrap
Text File
|
1995-03-27
|
344b
|
26 lines
program essai;
{$I "include:utils/string.i"}
var
s : string;
c : char;
p : Str_ListPtr;
begin
s := allocstring(80);
write('Enter a string : ');
readln(s);
write('Enter a char : ');
readln(c);
p := Str_C_Pos(s,c);
while p<>nil do
begin
write(p^.pos:3);
p := p^.next;
end;
writeln;
if p<>nil then
Str_FreeStr_List(p);
end.